Trip Freq Analysis

Set the working directory to H:/Projects/11000/11187/TS/Task 3.

Load the Scott_County_CR78_trips_78.csv file

CR_78 <- read.csv("H:/Projects/11000/11187/TS/Task 3/CR 78/scott_county_CR78_trips.csv",stringsAsFactors = FALSE)
Link_dist_78 <-  readxl::read_xlsx('H:/Projects/11000/11187/TS/Task 3/CR 78/scott_county_CR78_trips.xlsx',sheet = 'LinkDistances')
CR_42 <- read.csv("H:/Projects/11000/11187/TS/Task 3/CR 42/scott_county_CR42_trips.csv",stringsAsFactors = FALSE)
Link_dist_42 <-  readxl::read_xlsx('H:/Projects/11000/11187/TS/Task 3/CR 42/scott_county_CR42_trips.xlsx',sheet = 'LinkDistances')

The dimensions of the CR_78 dataset are 2063 rows and 1020 columns. The dimensions of the CR_42 dataset are 994 rows and 1020 columns.

Load the segment from the File Geodatabase on the H Drive project folder.

fgdb <- "H:/Projects/11000/11187/TS/Task 3/Scott County.gdb"
CR_78_seg <- readOGR(dsn=fgdb,layer="CR_78_seg")

OGR data source with driver: OpenFileGDB 
Source: "H:/Projects/11000/11187/TS/Task 3/Scott County.gdb", layer: "CR_78_seg"
with 18 features
It has 25 fields

CR_42_seg <- readOGR(dsn=fgdb,layer="CR_42_seg")

OGR data source with driver: OpenFileGDB 
Source: "H:/Projects/11000/11187/TS/Task 3/Scott County.gdb", layer: "CR_42_seg"
with 20 features
It has 25 fields

CR_78 and CR_42 Analysis Links

Date in ISO8601 format; converting timezone from UTC to "US/Central".

[1] 317
[1] "V297"

Date in ISO8601 format; converting timezone from UTC to "US/Central".

[1] 290
[1] "V270"

Scott County

CR_78

gg <-  ggplot(tripflag_summary_42[tripflag_summary_42$Total_Dist<50,])+
  geom_histogram(aes(x=Total_Dist),color='black',fill='white')+
  labs(title="Total Trip Distance histogram plot",x="Total Distance (miles)", y = "Count")
  
ggplotly(gg)

`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Start Locations:

End Locations:

CR_42

gg <-  ggplot(tripflag_summary_78[tripflag_summary_78$Total_Dist<50,])+
  geom_histogram(aes(x=Total_Dist),color='black',fill='white')+
  labs(title="Total Trip Distance histogram plot",x="Total Distance (miles)", y = "Count")
  
ggplotly(gg)

`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Start Locations:

End Locations: